home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 071-080 / amok80 / intuipointer / intuipointerdemo.mod < prev    next >
Text File  |  1993-11-04  |  927b  |  37 lines
  1. (*---------------------------------------------------------------------------
  2.  :Program.     IntuiPointerDemo.mod
  3.  :Author.      Christian Stiens
  4.  :Address.     Snail-Mail:           E-Mail:
  5.  :Address.     Heustiege 2           UUCP: Christian_Stiens@ouzonix.bo.open.de
  6.  :Address.     W-4710 Lüdinghausen   FIDO: 2:241/5807
  7.  :Copyright.   public domain
  8.  :Language.    Oberon-2
  9.  :Translator.  Amiga Oberon V2.42d
  10.  :Imports.     IntuiPointer
  11. ---------------------------------------------------------------------------*)
  12.  
  13. MODULE IntuiPointerDemo;
  14.  
  15.   IMPORT
  16.     d:=Dos, ip:=IntuiPointer, di:=Display;
  17.  
  18.   VAR
  19.     win : di.WindowPtr;
  20.     i   : INTEGER;
  21.  
  22. BEGIN
  23.   NEW(win);
  24.   IF di.OpenWindow(win,"IntuiPointerDemo",0,50,640,100,NIL) THEN
  25.     d.Delay(30);
  26.     FOR i := 0 TO 16 DO
  27.       d.Delay(20);
  28.       ip.AnimBusy(win.window,i);
  29.     END;
  30.     ip.Normal(win.window);
  31.     d.Delay(50);
  32.     di.Close(win);
  33.   END;
  34. END IntuiPointerDemo.
  35.  
  36.  
  37.